home *** CD-ROM | disk | FTP | other *** search
/ How Would You Survive? / How Would You Survive (1995)(Grolier)[Mac-PC].iso / pc / vikingw.dir / 01655_Script_Right and Wrong < prev    next >
Text File  |  1995-09-12  |  4KB  |  177 lines
  1. global gbeenclicked, gQuest
  2.  
  3. on VRightsRollovers1
  4.   set gbeenclicked = 0
  5.   if (not(CheckClickedStatus(gQuest))) then
  6.     if rollover(9) then
  7.       repeat while rollover(9)
  8.         VikingCursor
  9.         if (the mousedown) then
  10.           set gbeenclicked = 1
  11.         else
  12.           --the mouse is up
  13.           if gbeenclicked = 1 then
  14.             repeat while gbeenclicked = 1
  15.               RightWrong
  16.             end repeat
  17.           end if
  18.         end if
  19.       end repeat
  20.     else
  21.       if rollover(10) then
  22.         ArrowCursor
  23.         repeat while rollover(10)
  24.           set the locH of sprite 11 to 265
  25.           set the locV of sprite 11 to 308
  26.           updatestage
  27.         end repeat
  28.         set the locH of sprite 11 to 999
  29.         updatestage
  30.       else
  31.         if rollover(40) then
  32.           HandCursor
  33.         else
  34.           if rollover(41) then
  35.             HandCursor
  36.           else
  37.             if rollover(42) then
  38.               HandCursor
  39.             else
  40.               ArrowCursor
  41.             end if
  42.           end if
  43.         end if
  44.       end if
  45.     end if
  46.   end if
  47.   RandomQuestion(gQuest)
  48. end
  49.  
  50. on VRightsRollovers2
  51.   set gbeenclicked = 0
  52.   if (not(CheckClickedStatus(gQuest))) then
  53.     if rollover(6) then
  54.       repeat while rollover(6)
  55.         VikingCursor
  56.         if (the mousedown) then
  57.           set gbeenclicked = 1
  58.         else
  59.           --the mouse is up
  60.           if gbeenclicked = 1 then
  61.             repeat while gbeenclicked = 1
  62.               AnimateLoop 6, 782, 4, "SV320301.AIF", 3
  63.             end repeat
  64.           end if
  65.         end if
  66.       end repeat
  67.     else
  68.       if rollover(10) then
  69.         ArrowCursor
  70.         repeat while rollover(10)
  71.           set the locH of sprite 11 to 271
  72.           set the locV of sprite 11 to 352
  73.           updatestage
  74.         end repeat
  75.         set the locH of sprite 11 to 999
  76.         updatestage
  77.       else
  78.         if rollover(12) then
  79.           ArrowCursor
  80.           repeat while rollover(12)
  81.             set the locH of sprite 13 to 424
  82.             set the locV of sprite 13 to 266
  83.             updatestage
  84.           end repeat
  85.           set the locH of sprite 13 to 999
  86.           updatestage
  87.         else
  88.           if rollover(14) then
  89.             ArrowCursor
  90.             repeat while rollover(14)
  91.               set the locH of sprite 15 to 424
  92.               set the locV of sprite 15 to 353
  93.               updatestage
  94.             end repeat
  95.             set the locH of sprite 15 to 999
  96.             updatestage
  97.           else
  98.             if rollover(39) then
  99.               HandCursor
  100.             else
  101.               if rollover(41) then
  102.                 HandCursor
  103.               else
  104.                 if rollover(42) then
  105.                   HandCursor
  106.                 else
  107.                   ArrowCursor
  108.                 end if
  109.               end if
  110.             end if
  111.           end if
  112.         end if
  113.       end if
  114.     end if
  115.   end if
  116.   RandomQuestion(gQuest)
  117. end
  118.  
  119. on RightWrong
  120.   ArrowCursor
  121.   puppetsprite 6, true
  122.   puppetsprite 7, true
  123.   puppetsprite 8, true
  124.   set RunThruCount = 0
  125.   set gCast1 = the castNum of sprite 6
  126.   set gCast2 = the castNum of sprite 7
  127.   set gCast3 = the castNum of sprite 8
  128.   puppetsound "SV320301.AIF"
  129.   repeat while RunThruCount < 3 and (the MouseUp)
  130.     
  131.     set the castNum of sprite 6 = gCast1 + 1
  132.     set the castNum of sprite 7 = gCast2 + 1
  133.     updatestage
  134.     Wait .3
  135.     if the mousedown then
  136.       exit repeat
  137.     end if
  138.     
  139.     set the castNum of sprite 8 = gCast3 + 1
  140.     set the castNum of sprite 7 = gCast2
  141.     updatestage
  142.     Wait .3
  143.     if the mousedown then
  144.       exit repeat
  145.     end if
  146.     
  147.     set the castNum of sprite 6 = gCast1
  148.     set the castNum of sprite 7 = gCast2 + 1
  149.     set the castNum of sprite 8 = gCast3
  150.     updatestage
  151.     Wait .3
  152.     if the mousedown then
  153.       exit repeat
  154.     end if
  155.     
  156.     set the castNum of sprite 7 = gCast2
  157.     updatestage
  158.     Wait .3
  159.     if the mousedown then
  160.       exit repeat
  161.     end if
  162.     
  163.     set RunThruCount = RunThruCount + 1
  164.   end repeat
  165.   
  166.   set the castNum of sprite 6 = gCast1
  167.   set the castNum of sprite 7 = gCast2
  168.   set the castNum of sprite 8 = gCast3
  169.   updatestage
  170.   sound fadeOut 1, 3*60
  171.   puppetsprite 6, false
  172.   puppetsprite 7, false
  173.   puppetsprite 8, false
  174.   set gbeenclicked = 0
  175. end
  176.  
  177.